COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.DEVICE XGP
C00007 00003	.at "∂AIL" data "∞" ⊂
C00011 00004	.ARPA←"Information Processing Techniques↓Advanced Research Projects Agency"&
C00012 00005	.macro envelope	⊂
C00014 ENDMK
C⊗;
.DEVICE XGP
.bottom←53;
.page frame bottom high 85 wide
.area text lines 1 to bottom char 1 to 80;

.TURN ON "%{α"
.font 1 "basl30"; font 2 "basi30"; font 3 "basb30";
.AT "ffi" ⊂ IF 0<THISFONT≤3 THEN "≠"  ELSE "fαfαi" ⊃;
.AT "ffl" ⊂ IF 0<THISFONT≤3 THEN "α∞" ELSE "fαfαl" ⊃;
.AT "ff"  ⊂ IF 0<THISFONT≤3 THEN "≥"  ELSE "fαf" ⊃;
.AT "fi"  ⊂ IF 0<THISFONT≤3 THEN "α≡" ELSE "fαi" ⊃;
.AT "fl"  ⊂ IF 0<THISFONT≤3 THEN "∨"  ELSE "fαl" ⊃;
.AT "--"  ⊂ IF 0<THISFONT≤3 THEN "¬" ELSE "-α-" ⊃;

.at "↓";	⊂ }
.⊃;
.macro source(εfr);	⊂  send envelop ⊂
.fro←"fr";
.⊃ ⊃;
.macro envy(εstr);	⊂  send envelop ⊂
.envel("str");
.⊃ ⊃;

.macro letter(data,aut);	⊂
.<< namad = toname↓addr1↓addr2↓...$author$subject$date>>
.before page ⊂ ⊃;
.ODDLEFTBORDER←EVENLEFTBORDER←1000;
.if going=0 then going←1 else next page;
.nofill;
.count page from 2;
.dat←"data";  foo←scan(dat," ","","XR");
.xxx←namad←scan(dat,"$","","IS");  yyy←author←scan(dat,"$","","IS");
.subject←scan(dat,"$","","IS");   if length(dat)≤2 then dat←date;
.if length(author)≤2 then yyy←author←"aut";
.zzz←scan(yyy,",↓");	source(zzz);
.zzz←scan(xxx,"↓","","IS");  ln←length(zzz);
.if length(namad)>ln+3 then start
.  if length(namad)≤ln+7 then namad←zzz&"↓"&eval(xxx);
.  envy(namad);
.  end;
.name←scan(zzz,",");
. ⊃

.macro head;	⊂ nofill; SKIP 4; select 1;
.(namad)}
.subj;
.⊃

.macro memo;	⊂ begin "memo"
.skip 3;
.fill; nojust; indent 0,8; crbreak; tabs 9; turn on "\%";
.xxx←namad;  nam←scan(xxx,"↓");
To:\%1{nam}

%3From:\%1{author}
.end "memo";
.subj;
.⊃

.macro subj;	⊂
.fac;
.if length(subject)>2 then BEGIN "subject" turn on "%∂"; nojust; indent 0,8;crbreak;
%3Subject:∂9%1{subject}

.end "subject";
.before page	⊂ once turn on "%→←"; select 3;
.name}←{dat}→Page {page!}%*
.skip;
.    ⊃
.select 1;
.  ⊃

.macro ref ⊂ select 3; nojust; boldit;
References:
.select 1; indent 0,8;
. ⊃

.macro sgn; ⊂ BEGIN "signed" SKIP 2; NOFILL; group;
Sincerely,
.SKIP 3;
{author}
.END "signed"; ⊃

.macro reg; ⊂BEGIN "regards" SKIP 2; NOFILL; group;
Best regards,
.SKIP 3;
{author}
.END "regards"; ⊃

.MACRO FAC ⊂ FILL ADJUST ⊃
.MACRO FAD ⊂ FILL ADJUST double space; preface 2; ⊃
.macro BS  ⊂ BEGIN INDENT 0,3; PREFACE SPREAD-1; NOJUST ⊃

.macro cb(head) ⊂ if lines<5 then next page else skip; once center; select 3
head

.⊃

.macro boldit ⊂ turn on "%";
.  at """" ⊂ (if thisfont=1 then "%3" else "%1") ⊃;
.  at "<" ⊂"%2"⊃; at ">" ⊂"%1"⊃;
.⊃

.macro cc(lst,lst2);	⊂ begin "cc" group;
.macro slurp;	⊂
.  xxx←scan(list,"$","","IS");
.  foo←scan(xxx," ","","XR");
.  yyy←nam←scan(xxx,"↓","","IS");
.  if length(xxx)>2 then start "add"
.    if length(xxx)≤6 then xxx←eval(xxx);
.    na←scan(yyy,",(");
.    yyy←na&"↓"&xxx;
.    envy(yyy);
.    end "add";
.⊃;

.SKIP 2; fac; crbreak; single space; PREFACE 0;
.indent 0,5; tabs 6; turn on "\";
.if length("lst2")>2 then start delim←"lst"; list←"lst2" end
.  else start delim←", "; list←"lst"; end;
.slurp; ostr←"cc:\"&nam;
.while("length(list)>2",|slurp; ostr←ostr&delim&nam;|);
{(ostr&".");}
.end "cc"; ⊃;
.at "∂AIL" data "∞"; ⊂
.letter(|data|,|John McCarthy↓Director↓Professor of Computer Science|);
.if on4=0 then start on4←1; FONT 4 "STA200"; end;
.if on5=0 then start on5←1; FONT 5 "NGB25"; end;
%4S%5 Artificial Intelligence Laboratory, STANFORD UNIVERSITY, Stanford, California 94305
.xgenlines←-4;
.once turn on "→"
Telephone 415 497-4971→{dat}
.head;
.⊃

.AT "∂MEM" data "∞"	⊂
.letter("data",
."John McCarthy, Director, Artificial Intelligence Lab.");
.if on6=0 then start on6←1; font 6 "micr25"; end;
.if on7=0 then start on7←1; font 7 "ngb30";  end;
.SELECT 6; CENTER;
OFFICE MEMORANDUM  *  STANFORD UNIVERSITY  *  OFFICE MEMORANDUM
.SKIP; SELECT 7;
STANFORD ARTIFICIAL INTELLIGENCE LABORATORY
.SELECT 3; SKIP;
{DAT}
.memo;
.⊃
.ARPA←"Information Processing Techniques↓Advanced Research Projects Agency"&
.  "↓1700 Wilson Boulevard↓Arlington, Virginia 22209";

.MACRO BC ⊂ BEGIN PREFACE 0; INDENT 1,4; CRBREAK nojust ⊃
.MACRO BS ⊂ BEGIN PREFACE 0; INDENT 1,4; nojust ⊃
.macro DS ⊂ double space; preface 2;	⊃
.macro sing	⊂ single space; preface 1;	⊃

.going←on4←on5←0;  on6←on7←on8←on9←0;
.portion main;  place text;
.preface 1;

.macro envelope	⊂
.begin "envelopes"
.area text lines 1 to bottom;
.portion envelop;
.place text;
.nofill;
.select 3;
.before page; ⊂ ⊃;
.ODDLEFTBORDER←EVENLEFTBORDER←100;
.next page;
.
.macro envel(who);	⊂ begin
.group
.(fro)}
.skip 2;
.narrow 40;
who
.end
.skip 2;
.⊃
.
.receive;
.end "envelopes"
. ⊃;